home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / tuning / download / xteq / setup.exe / {app} / plugins / XQ IE Outlook Express 9.xpl < prev    next >
Text File  |  2001-05-14  |  2KB  |  53 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="7"
  3. "COUNT"="4"
  4. "UIPATH"="Internet\Outlook Express\System"
  5. "NAME"="Security Zone"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Internet (Medium)"
  8. "TEXT 2"="Local Intranet (Medium-Low)"
  9. "TEXT 3"="Trusted Sites (Low)"
  10. "TEXT 4"="Restricted Sites (High)"
  11. "DESCRIPTION 1"="This plug-in lets you configure which zone Outlook Express should use for HTML emails. Some emails may contain JavaScript viruses or open hard-to-close browser windows, and setting a high security level will stop these from annoying you or damaging your system. It will also stop emails with counters or statistics monitors from 'reporting home' with information about your computer."
  12. "DESCRIPTION 2"="On the other hand, setting a high security level will disable some of the enhanced functionality of HTML emails."
  13. "VERSION"="1.0"
  14. "AUTHOR"="Neil R. Turner (totalxs@hotmail.com) for Xteq Systems"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "CONTACTURL"="http://www.neilrt.cwc.net/"
  17.  
  18. ID="HKCU\Identities\Last User ID"
  19. sP1="\Software\Microsoft\Outlook Express\5.0\"
  20. Inf="Security Zone"
  21.  
  22. SUB Plugin_Initialize
  23.  y=RegReadValue(ID)
  24.  if IsEmpty(y)=false then
  25.   sValPath="HKCU\Identities\" & y & sP1
  26.  
  27.   t=RegReadValue(sValPath & Inf)
  28.   if t>0 then
  29.      Call SetUIElement(t,true)
  30.   end if
  31.  else
  32.   Call Disable()
  33.  end if
  34. END SUB
  35.  
  36. SUB Plugin_CheckData(ElementIndex)
  37. END SUB
  38.  
  39. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  40.  y=RegReadValue(ID)
  41.  sValPath="HKCU\Identities\" & y & sP1
  42.  
  43.  For g=1 to 4
  44.   s=GetUIElement(g)
  45.   if s=true then
  46.    Call RegWriteValue(sValPath & Inf,g,2)
  47.   end if
  48.  Next
  49. END SUB
  50.  
  51. SUB Plugin_Terminate
  52. END SUB
  53.